約 2,105,399 件
https://w.atwiki.jp/thecockrockshockpop/pages/1230.html
Metal Scent Metal Scent 2008年8月25日 ( N/HD ) 1. Falling So Deep / 2. The Letter / 3. Visions / 4. Delilah / 5. Everybody s Gone / 6. Runaway / 7. Running Free / 8. Rain / 9. For So Long / 10. One Way Ticket To The Blues / 11. Under My Thumb
https://w.atwiki.jp/wiki5_hks/pages/39.html
OUTPUT ファイルからの情報抽出 Web 上で実行記事 記事（追記） 実行場所 http //homepage1.nifty.com/hkasai/NMonal/NMonal.html 複数の OUTPUT ファイルから情報を抽出 あるフォルダ内にある OUTPUT ファイルすべてから必要な情報を抽出する．フォルダ内に OUTPUT ファイル以外のファイルが保存されていても構わない．OUTPUT ファイルのみを認識して，以下の作業が自動的に行われる． 使い方1. 下のプログラム (ReadNMoutMulti.pl および NMoutAnal.pl) をひとつのフォルダに保存する 2. Perl をインストールしておく．（Perl 参照） 3. 以下のように実行する．結果は CSV ファイルに出力される．Summary.csv は使用者が任意につける名前．何でもよい． ### カレントフォルダの OUTPUT をすべて対象とする場合 ### C \nmv\run perl ReadNMoutMulti.pl . Summary.csv ### カレントフォルダの下の OUT フォルダの中のファイルを対象とする場合 ### C \nmv\run perl ReadNMoutMulti.pl out Summary.csv 注意 COV ステップのエラー検出には未対応です．== 対応しました． 結果の保証はいたしかねます． ReadNMoutMulti.pl use strict; require 'NMoutAnal.pl'; my $ThisScriptName = "ReadNMoutMulti.pl"; if (@ARGV != 1) { print "Usage perl $ThisScriptName FOLDER_name\n\n"; die; } my $dirname = shift @ARGV; my @result_all; opendir(DIR, $dirname) or die "$dirname $!"; while (defined(my $fname = readdir(DIR))) { next if ($fname =~ /pl$/); next unless (-f "$dirname\\$fname"); open(FILE, "$dirname\\$fname") or die "$dirname\\$fname $!"; my $isOutputFile = 0; while (defined(my $line = FILE )) { if ($line =~ "DEVELOPED AND PROGRAMMED BY STUART BEAL AND LEWIS SHEINER" ) { $isOutputFile = 1; } } close(FILE); if ($isOutputFile) { my %result1 = NMoutAnal("$dirname\\$fname"); $result1{'FNAME'} = $fname; push(@result_all, \%result1); } } closedir(DIR); my $max_ntheta = 0; my $max_nomega = 0; my $max_nsigma = 0; foreach my $res1 (@result_all) { if ($res1- {'NTHETA'} $max_ntheta) { $max_ntheta = ${$res1}{'NTHETA'}; } if ($res1- {'NOMEGA'} $max_nomega) { $max_nomega = ${$res1}{'NOMEGA'}; } if ($res1- {'NSIGMA'} $max_nsigma) { $max_nsigma = ${$res1}{'NSIGMA'}; } } print "Output,EST Status,COV Status,NIndiv,Nobs,OBJ"; for (1..$max_ntheta) { print ",TH$_"; } for (1..$max_nomega) { print ",OM$_"; } for (1..$max_nsigma) { print ",SG$_"; } for (1..$max_ntheta) { print ",SETH$_"; } for (1..$max_nomega) { print ",SEOM$_"; } for (1..$max_nsigma) { print ",SESG$_"; } print "\n"; my @values; my [[$COV]]_status; foreach my $res1 (@result_all) { $COV_status = "Success"; if ($res1- {'COV_STATUS'} == 0) { $COV_status = "Failure"; } elsif ($res1- {'COV_STATUS'} == -1) { $COV_status = "Not Implemented"; } print "$res1- {'FNAME'}"; print ",$res1- {'STATUS'}"; print ",$COV_status"; #COV status print ",$res1- {'NINDIV'}"; print ",$res1- {'NOBS'}"; print ",$res1- {'OBJ'}"; @values = ConvEStrToNum($res1- {'THETA'}); print ",", join(",", @values); if ($res1- {'NTHETA'} $max_ntheta) { foreach my $i (($res1- {'NTHETA'} + 1)..$max_ntheta) { print ",."; } } @values = ConvEStrToNum($res1- {'OMEGA'}); print ",", join(",", @values); if ($res1- {'NOMEGA'} $max_nomega) { foreach my $i (($res1- {'NOMEGA'} + 1)..$max_nomega) { print ",."; } } @values = ConvEStrToNum($res1- {'SIGMA'}); print ",", join(",", @values); if ($res1- {'NSIGMA'} $max_nsigma) { foreach my $i (($res1- {'NSIGMA'} + 1)..$max_nsigma) { print ",."; } } @values = ConvEStrToNum($res1- {'SE_THETA'}); print ",", join(",", @values); if ($res1- {'NTHETA'} $max_ntheta) { foreach my $i (($res1- {'NTHETA'} + 1)..$max_ntheta) { print ",."; } } @values = ConvEStrToNum($res1- {'SE_OMEGA'}); print ",", join(",", @values); if ($res1- {'NOMEGA'} $max_nomega) { foreach my $i (($res1- {'NOMEGA'} + 1)..$max_nomega) { print ",."; } } @values = ConvEStrToNum($res1- {'SE_SIGMA'}); print ",", join(",", @values); if ($res1- {'NSIGMA'} $max_nsigma) { foreach my $i (($res1- {'NSIGMA'} + 1)..$max_nsigma) { print ",."; } } print "\n"; } NMoutAnal.pl use strict; sub NMoutAnal { if (@_ != 1) { print "Irregular arguments.\n\n"; die; } my $output_file = shift @_; if (not -e $output_file) { print "File not found $output_file\n\n"; die; } open(OUTPUT, $output_file) or die "$!"; my @lines = OUTPUT ; my $nlines = @lines; close(OUTPUT); my %result; my $problem; my $tmp; my $nobs; my $nindiv; my $del; my $status; my $obj; my @theta; my $ntheta; my $str; my @omega; my $nomega; my @sigma; my $nsigma; my @se_theta; my @se_omega; my @se_sigma; foreach my $i (0..($nlines - 1)) { if ($lines[$i] =~ /PROBLEM NO./) { $i++; chomp($lines[$i]); $problem = $lines[$i]; $problem =~ s/^ +//; $problem =~ s/ +$//; $result{'PROBLEM'} = $problem; } elsif ($lines[$i] =~ /OBS RECS/) { chomp($lines[$i]); ($tmp, $nobs) = split(/ +/, $lines[$i]); $result{'NOBS'} = $nobs; } elsif ($lines[$i] =~ /OF INDIVIDUALS/) { chomp($lines[$i]); ($tmp, $nindiv) = split(/ +/, $lines[$i]); $result{'NINDIV'} = $nindiv; } elsif ($lines[$i] =~ /MINIMIZATION/) { chomp($lines[$i]); $del = 0; if (substr($lines[$i], 0, 1) eq '0') { $del = 1; } $status = substr($lines[$i], $del); $result{'STATUS'} = $status; } elsif ($lines[$i] =~ /MINIMUM VALUE OF OBJ/) { do { $i++; } until ($lines[$i] =~ /[\-\d\.]+/); $obj = $ ; $result{'OBJ'} = $obj; } elsif ($lines[$i] =~ /FINAL PARAMETER ESTIMATE/) { do { $i++; } until ($lines[$i] =~ /TH 1/); $i += 2; chomp($lines[$i]); @theta = split(' ', $lines[$i]); $ntheta = @theta; $result{'NTHETA'} = $ntheta; $result{'THETA'} = "@theta"; if ($lines[$i + 4] =~ /OMEGA/) { do { $i++; } until ($lines[$i] =~ /^ ?ETA1/); $i++; chomp($lines[$i]); $del = 0; if (substr($lines[$i], 0, 1) eq '+') { $del = 1; } $str = substr($lines[$i], $del); @omega = split(' ', $str); $i += 2; while ($lines[$i] =~ /^ ?ETA/) { $i++; chomp($lines[$i]); $del = 0; if (substr($lines[$i], 0, 1) eq '+') { $del = 1; } $str = substr($lines[$i], $del); @omega = (@omega, split(' ', $str)); $i += 2; }; $nomega = @omega; $result{'NOMEGA'} = $nomega; $result{'OMEGA'} = "@omega"; } if ($lines[$i + 2] =~ /SIGMA/) { do { $i++; } until ($lines[$i] =~ /^ ?EPS1/); $i++; chomp($lines[$i]); $del = 0; if (substr($lines[$i], 0, 1) eq '+') { $del = 1; } $str = substr($lines[$i], $del); @sigma = split(' ', $str); $i += 2; while ($lines[$i] =~ /^ ?EPS/) { $i++; chomp($lines[$i]); $del = 0; if (substr($lines[$i], 0, 1) eq '+') { $del = 1; } $str = substr($lines[$i], $del); @sigma = (@sigma, split(' ', $str)); $i += 2; }; $nsigma = @sigma; $result{'NSIGMA'} = $nsigma; $result{'SIGMA'} = "@sigma"; } } elsif ($lines[$i] =~ /STANDARD ERROR/) { do { $i++; } until ($lines[$i] =~ /TH 1/); $i += 2; chomp($lines[$i]); @se_theta = split(' ', $lines[$i]); $result{'SE_THETA'} = "@se_theta"; if ($lines[$i + 4] =~ /OMEGA/) { do { $i++; } until ($lines[$i] =~ /^ ?ETA1/); $i++; chomp($lines[$i]); $del = 0; if (substr($lines[$i], 0, 1) eq '+') { $del = 1; } $str = substr($lines[$i], $del); @se_omega = split(' ', $str); $i += 2; while ($lines[$i] =~ /^ ?ETA/) { $i++; chomp($lines[$i]); $del = 0; if (substr($lines[$i], 0, 1) eq '+') { $del = 1; } $str = substr($lines[$i], $del); @se_omega = (@se_omega, split(' ', $str)); $i += 2; }; $result{'SE_OMEGA'} = "@se_omega"; } if ($lines[$i + 2] =~ /SIGMA/) { do { $i++; } until ($lines[$i] =~ /^ ?EPS1/); $i++; chomp($lines[$i]); $del = 0; if (substr($lines[$i], 0, 1) eq '+') { $del = 1; } $str = substr($lines[$i], $del); @se_sigma = split(' ', $str); $i += 2; while ($lines[$i] =~ /^ ?EPS/) { $i++; chomp($lines[$i]); $del = 0; if (substr($lines[$i], 0, 1) eq '+') { $del = 1; } $str = substr($lines[$i], $del); @se_sigma = (@se_sigma, split(' ', $str)); $i += 2; }; $result{'SE_SIGMA'} = "@se_sigma"; } } } # COV ステップエラーの検出 my $COV_status = -1; # NOT IMPLEMENTED foreach my $line (@lines) { if ($line =~ /COVARIANCE STEP OMITTED.*$/) { my ($tmp, $COV_exec) = split(/ /, $ ); if ($COV_exec =~ /NO/) { $COV_status = 1; # IMPLEMENTED } } } if ($COV_status == 1) { # COV ステップが実行されている if (!($se_theta[0] 0)) { $COV_status = 0; } } $result{'COV_STATUS'} = $COV_status; return %result; } sub ConvEStrToNum { my $str = shift @_; my @value = split(/ /, $str); foreach (@value) { $_ += 0; } return (@value); } 1;
https://w.atwiki.jp/retropcgame/pages/430.html
ZETA第4号 メーカー チャンピオンソフト 発売 1987年02月 ハード PC-88/FM-7 メディア 5インチFD/3.5インチFD 攻略に使ったバージョン PC-88 5インチFD版 1.ZETA･GAL制服姿 ･ZETAGAL達の制服姿と今後の進路などが紹介されているCG集。 2.パジャマ講座 ･パンティめくりゲームで勝てばパジャマ姿のZETAGALのCGが表示される。 ･ルールは伏せられたパネル8×14の中からパンティを引けば一点、股引なら全点が没収されて預かりにプール、ブラなら預かり中の点をすべてもらえる。 ･配置はランダムなので完全に運。何も考えずどんどん引きましょう。 3.THE間違い探し 間違い探しゲーム。正解を書いてハガキで応募すればZETA GALのセル画が抽選で10名に当たる企画となっていた。('87年6月締め切り) 以下は右側の絵が間違っているという前提で書いています。 ･後頭部リボンの色が違う。 ･靴下のワンポイントの絵柄が違う。 ･右上のボールの花柄の一つの中心部が緑色。 ･靴紐の交差が一本少ない。 ･左下の背景模様の顔の一つが青い。 ･お尻のあたりの背景で、一箇所水色と青が逆の模様がある。 ･ヤシの木の背景の中にヤシの実がなっている木がある。白いテニスボール(?)の下あたり。 4.ジグソーパズル ･2枚のパズルを完成させれば隠し要素のヒントがもらえる。 ･難易度は低いがリターンキーだけ有限なので、判定前は違和感がないか慎重にチェックしておく。四隅にわずかなドットがあることがあるので注意。 5.密着取材 ･青、赤、ピンク、緑、水色、黄色の6色のパネルが点滅するので、その順番を覚えるゲーム。 ･点滅は4回、6回、8回と増えていき、ペースも早くなる。 6.恭子ちゃんとデート ･ブラックジャックをひねったようなゲーム。 ･最初に選ぶ「大」「小」は手札のことではなく、場に出たすべてのカードの合計値が40を上回るか下回るかの予測。運なので気にしない。 ･二枚の手札が配られ、その数字の合計の下一桁が9に近いほうが一次判定で勝利。例えば9とQなら計21で「1」が勝負数字となる。 ･二枚めくった時点で三枚目を引くかどうか選べる。引いた場合は3つの数字の合計の下一桁が勝負数字となる。 ･勝ちになるには一次勝利だけでは不足で、さらに最初に選んだ「大」「小」で場の合計数を当てていなければならない。相手も条件は同じようだが、勝ち損じ、負け損じ、負けがすべて同じカウントになるので分が悪い。 ･まず一次勝利しなければ話にならないので、下一桁を9に近づける事だけに集中した方が良いだろう。結局は運要素の比重が高いので考え過ぎず数で勝負。 ･10戦目までに4勝した時点でクリア。CGが見られる。一枚しかCGがないのは仕様。 7.みな穂の現在･過去･未来 みな穂の幼稚園時代、小学校時代、中学校時代、高校時代が見られるCG集。タイムマシンが度々故障し見られない場合があるが、すべてのCGは用意されているのでしつこく押し続ければ制覇できる。 8.終り おわり。
https://w.atwiki.jp/yubiwaol/pages/27.html
THE ASSAULT ON ARCHET 依頼者：JON BRACKENBROOK Jon Brackenbrookと彼のハンター達が既に燃え盛るArchetの村外れに到着した。 彼らの村を救う絶体絶命の危機は始まろうとしています。 あなたはなんとか間に合った。 目的１ ●Jon Brackenbrookと話す。 ●Jon Brackenbrookを守る。 hunter 「見失った！ヤツらは我等が見えてる？」 「何？どこだ？」 Otto the Brigand 「哀れなNedどうしてやろうか！」 「彼らが見ている、俺はやるぞ」 Peg Pruner 「止まれ！Ned、今行くぞ」 Jailor Ned Pruner 「哀れな！」 Otto the Brigand 「よくも囚えてくれたなPruner！」 JON BRACKENBROOK 遅かったようだ。 村はもう燃えあがってる！ 東門を抜けるから、ここでグズグズしてる時間はないぞ。 私たちも安全ではなことに恐怖を感じる。 「父を助けるんだ！」 Peg Pruner 「なぜこの扉を閉めた？」 JON BRACKENBROOK 「Nedを助けろ！」 Otto the Brigand 「十分楽しんだ。下がるぞ！」 「私の靴を舐めるか？看守？」 Jailor Ned Pruner 「動けない・・」 Peg Pruner 「この鍵を壊してくれない？」 JAILOR NED PRUNER Amdir、Amdirが閉めたんだ。 彼は私たちを奴らの殺戮から逃がしてくれた。 あなたは彼を助けにいってくれ、村民も守ってくれ！ BlackwoldはホビットとCaptainを狙っている。 炎の中に何かを見た、行ってくれ！ 彼らを助けてくれ！ Peg Pruner 「Ned!なんてこと・・」 「あなたは村民を見つけたら逃がしてやって」 「Blackwoldたちは村のいたる場所を攻撃している」 「急いで、Amdirを見つけてBlackwoldを倒して！」 「私とかわいそうなNedはほっといて」 JON BRACKENBROOK Calder Cobと裏切り者Ottoは丁度私が恐れていた戦いを仕掛けたばかりだ。 私達はMad Badger INNへの道を見つけないと。 Pegは私達に広場への道から行けと言った。 恐らくそこから行けるだろう。 ついてきてくれ！ 「広場の安全を確保しよう、ついてきてくれ」 「この道は塞がれているようだ！新しい道を見つけよう」 「この先だ」 「よく戦ってくれた！しかしこの先に嫌な予感がする」 広場は安全になったぞ、しかし私達は進まないと！ もし私達がグズグズしてると、Archetは敗れてしまう！ 村中央への別ルートを探そう！ 「工房エリアを護ろう、来てくれ！」 「あの邪な友人たちは我らの村に手間取ってる。希望はまだある！」 「見ろ！Atliがいるぞ！まだ敗れていない」 「ようやく会えたな友よ。工房は安全か？」 Atli Spider-bane 「Blackwoldの連中はついさきそこの建物から進入してきたぞ、Jon」 「合流して、ヤツらを叩こう、そこを取り戻す！」 「なんてこった！遅かったか。アーチを護らないと・・見ろ！」 Blackwold 「Angmarがおまえのドアをノックする時、おまえは土下座する」 JON BRACKENBROOK 「最悪の事態を食い止めないと！」 君はよくやってくれた、友よ、しかし私達にはもう戦力がない。 我等は広場と工房を守った。 Mad Badger INNは燃えてしまった。 恐らく父は生きてはいる、が・・わずかな希望だ。 Atliとついて来てくれ！我等はこの村が壊滅するのを防ぐべきだ。 「我等はここだ、父は生きている。私にはわかる」 「父よ！助太刀にきたぞ！」 Captain Brackenbrook 「ワシは生きているぞ息子よ、しかしワシは連戦で疲れている」 「Archetは陥落したのか？私がバカだった！」 JON BRACKENBROOK 「燃え尽きる時間ではない。我等は安全になるまで守らないと」 Captain Brackenbrook 「わかった。ワシはホビットたちと怪我人を護衛しよう。山ふところを攻撃してくれるか？」 「仕掛けるんだ！ワシらを守ってくれ」 JON BRACKENBROOK 「最後の害虫退治の準備だ」 Blckwold 「最悪の時間のおでましだ」 Cargul 「遊びは終わりだ！我々は野伏のために来た！」 Captain Brackenbrook 「Calde Cob、何でおまえがいる？何しに来た？」 Calder Cob 「いつも関係はあったのさ、Captain,あなたの見てないところでな、私のことは理解できまい」 Captain Brackenbrook 「ワシが知っているすべては、オマエが家と皆を裏切ったということだ、恥じるべきだ」 Cargul 「話は終わりにしろ。Amdirは今よりMordorの従者だ。Dunadaと共に来い」 Amdir 「はい、マスター」 Captain Brackenbrook 「何が起きた？？」 Cargul 「Calder Cob、おまえが来た目的を果たせ」 Cader Cob 「喜んで。私はArchetで力を得たんだ、Brackenbrook！」 JON BRACKENBROOK 「父よ！！あああ・・」 JON BRACKENBROOK 今日は最悪の日となった。 Archetは燃え上がり、父は死んだ、そして野伏は連れていかれた。 今、村の火が治まるのを待つしかできることはない。 幸運と共に、我等はみすぼらしくなった村を再建しよう。 JON BRACKENBROOK 今夜はなんと悲劇的な事があった夜なんであろう！ しかしBlackwoldの脅威は撃退した。 しかし、そう長くない間に、また襲って来るかもしれない。 Angmarの悪の主人と共に。 背景 Archet村は襲撃を受けた。 Jon Brackenbrookと彼のハンター達は村の東門から突入する事にした。 あなたは先頭に立ち、Mundo,Celandine,Amdir,Captain Brackenbrookの現在をつきとめろ。 クエスト・データ 適正レベル：5 クエスト・タイプ：ソロ 前提クエスト：THE STORM IS UPON US 派生クエスト：THE ASSAULT ON ARCHET
https://w.atwiki.jp/ce00582/pages/2109.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 65) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim mnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /bs/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /bs/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /dig/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = m2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next mnew(byear) = z1 Next Open "c /bs/gdata/男子新規裁定者1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1879.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 65) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim mnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /dig/data/男子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /dig/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a2 Loop Close #3 Open "c /dig/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = m2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * m2by(byear, age - 1) z2 = m2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 25 To 49 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next mnew(byear) = z1 Next Open "c /dig/gdata/男子新規裁定者1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, mnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1576.html
Private Sub Command1_Click() Dim byear As Single Dim age As Single Dim car As Single Dim mis(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mos(1985 To 2100, 15 To 64, 1 To 49) As Single Dim m2by(1900 To 2100, 15 To 69) As Single Dim f2by(1900 To 2100, 15 To 69) As Single Dim mdeby(1900 To 2100, 0 To 99) As Single Dim fdeby(1900 To 2100, 0 To 99) As Single Dim alpha(15 To 69) As Single Dim beta(15 To 69) As Single Dim gamma(15 To 69) As Single Dim theta(15 To 64) As Single Dim zan(1985 To 2100, 15 To 64, 1 To 49) As Single Dim zant(1985 To 2100, 15 To 64, 1 To 49) As Single Dim mde(1985 To 2100, 0 To 99) As Single Dim fnew(1985 To 2100) As Single Dim z1 As Single Dim z2 As Single Dim z3 As Single Dim v As Single Open "c /eli/data/女子脱退力.txt " For Input As #2 Do Until EOF(2) Input #2, a1, a2, a3, a4 age = a1 gamma(age) = a2 alpha(age) = a3 beta(age) = a4 Loop Close #2 Open "c /eli/data/再加入率.txt " For Input As #3 Do Until EOF(3) Input #3, a1, a2, a3, a4 age = a1 theta(age) = a3 Loop Close #3 Open "c /eli/gdata/変形厚生年金被保険者.txt " For Input As #5 Do Until EOF(5) Input #5, a1, a2, a3, a4 byear = a1 age = a2 m2by(byear, age) = a3 f2by(byear, age) = a4 Loop Close #5 For byear = 1990 To 2034 age = 15 mis(byear, age, 1) = f2by(byear, age) For age = 16 To 64 z1 = (1 - gamma(age - 1)) * f2by(byear, age - 1) z2 = f2by(byear, age) - z1 If z2 0 Then z2 = 0 z3 = (1 - theta(age)) * z2 z4 = theta(age) * z2 mis(byear, age, 1) = z3 z5 = 0 For car = 1 To 49 z5 = z5 + mos(byear, age - 1, car) Next If z5 = 0 Then z5 = 1 v = z4 / z5 If v 1 Then v = 1 For car = 2 To 49 mis(byear, age, car) = (1 - gamma(age - 1)) * mis(byear, age - 1, car - 1) + v * mos(byear, age - 1, car - 1) Next For car = 1 To 49 mos(byear, age, car) = (gamma(age - 1) - alpha(age - 1) - beta(age)) * mis(byear, age - 1, car) + (1 - alpha(age - 1) - v) * mos(byear, age - 1, car) Next Next z1 = 0 For car = 1 To 24 z1 = z1 + mis(byear, 64, car) + mos(byear, 64, car) Next fnew(byear) = z1 Next Open "c /eli/gdata/女子通算新規裁定者1.txt " For Output As #4 For byear = 1990 To 2100 Write #4, byear, fnew(byear) Next Close #4 End Sub
https://w.atwiki.jp/thief/pages/29.html
公式 T2X Shadows of the Metal Age 導入方法 ダウンロード本体 パッチ トレーラー ストーリー 登場人物紹介 衛兵 武器解説 アイテム解説 ミッション攻略Mission 1 Unexpected Shelter 参考・引用サイト Klatremus' Thief Gold Site 名前 コメント トップページ
https://w.atwiki.jp/hmiku/pages/27628.html
【登録タグ 曖昧さ回避】 曖昧さ回避のためのページ thetaの曲レプリカント/theta buzzGの曲レプリカント/buzzG 曖昧さ回避について 曖昧さ回避は、同名のページが複数存在してしまう場合にのみ行います。同名のページは同時に存在できないため、当該名は「曖昧さ回避」という入口にして個々のページはページ名を少し変えて両立させることになります。 【既存のページ】は「ページ名の変更」で移動してください。曖昧さ回避を【既存のページ】に上書きするのはやめてください。「〇〇」という曲のページを「〇〇/作り手」等に移動する場合にコピペはしないでください。 曖昧さ回避作成時は「曖昧さ回避の追加の仕方」を参照してください。 曖昧さ回避依頼はこちら→修正依頼/曖昧さ回避追加依頼
https://w.atwiki.jp/conlang_arka/pages/40.html
You will find many detailed notes on Arbazard under [culture] tag in Arka dictionary. Let s see how many articles on the Arban culture Arka dictionary has. There are more than 3,200 articles. Samples You will see what arban are like and what they think. Besides you will see what their culture is like. Arbazard (the strongest country in Atolas) anfan (currency) mirs (debate) arban (people of Arbazard) ainklal (personal space) labmel (working hours) tauan (customer) daig (tax) sors (computer) Bellei (a book on cooking) eldern (language family) fler (hot water) alx (number) vaan (army) pont (traffic) amo (car) beek (toilet) belate (restaurant) ra (house) lestlat (entrance) liva (game) nayumel (chess-like games) moel (the Government) Direction words which are related to characters. hac(2) (characters) mana(2) (Altian characters) lim (phoneme) hacnolt (character code)